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- parse a command’ 


001 ZTITLE ‘EDTSPRPARCOM 
86 MODULE EDTSPRPARCOM ( : ! Parse a command 
Ohz ele v04-000' ' File: PRPARCOM.BLI Edit: J8S1007 
005 1 BEGIN 
00 ' 


PITIIIIIILIILILLL LLL LLL LLL LiL LiL LLL LLL LiL Lili. 
'® 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 B 

'® DIGITAL EQUIPMENT EORPORATION, MAYNARD. MASSACHUSETTS. 

'® ALL RIGHTS RESERVED. 


* 
® 
® 
® 
4 * 
'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND gb * 
'® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
'® INCLUSION OF THE ABOVE Sev iDES NOTICE. THIS SOFTWARE OR ANY OTHER : 
iw OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
'® TRANSFERRED. ed 
' ® 
't phe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
'® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
'® CORPORATION. ® 

* 

* 
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'® \IGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
t® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: EDT -- The DEC Standard Editor 
ABSTRACT: 
Parse a command. 

ENVIRONMENT: Runs at any access mode - AST reentrant | 
| 
| 
| 
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AUTHOR: Bob Kushlis, CREATION DATE: December 12, 1978 


si MODIFIED BY: 

Boe 1-001 - Original. DJS 25-Feb-1981. This module was creates by 
04 extracting routine EDTSS$PA_ CMD from module PARSER. 

004 1-002 - Regularize headers. JBS~12-Mar-198 

004 -005 - Use new message codes. JBS poles Be 

ape -004 - Detine a synonym for the entry point name so a call t 


this routine can be hidden from the overlay o0 ane} Bs JBS 16-Mar-1982 
“093 - ata CRLF if TI_WRSTR is being used. 
- 1-008 - Use EDTSSFMT_CRLF instead af EDT sey T_FMTBUF. as 55-Jul-1982 
-007 - Use EDTSSFMT_STR ingtead of of sr" SFMT_CIT, so EDT$$G_ PRY. “COL is kept 
up to date.” JBS 05-Oct-19 
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EDTSPRPARCOM EDTSPRPARCOM = parse a command 18-Sep-1984 91:40:40 VAX-11 Bliss-32 ed bo Page 3 
v04-000 EDTSSPA_CMD = parse a command 14-Sep-1984 12:24:.. DISKSVMSMASTER:CEDT.SRCJPRPARCOM.BLI;1 (3) | 
; 38 0968 } ZSBTTL 'EDTSSPA_CMD = parse a command’ | : 
$ 28 038) ! GLOBAL ROUTINE EDTSSPA_CMD ! Parse a command : 
; 100 988 1 ; 
: 101 954 1 !44 ; 
: 196 Re? : FUNCTIONAL DESCRIPTION: : 
: 104 339 1? This routine is called to parse a single command on the current command Line. | : 
; 105 bae8 , 3 EDTSSA_CMD_BUF points to the first character of the command. If the ; 
: 106 959 1! parse jis successful, a 1 is returned and the parsing stack contains a ‘ 
: 107 eae ee description of the command. EDTSSA_CMD BUF is left pointing at the ';' ‘ 
: 108 961 1! or ‘!* which are the one valid terminators of commands. If an error occurs, a : 
; 109 0962 1! 0 is returned, and EDT$SA_CMD_BUF is forced to point to the '!" at the ; 
; 110 0965 1! end of the current command Line, to prevent the rest of the commands from being : 
s 3% 0964 1! executed. ; 
3 Vg 0965 1! ° 
; 0966 1 ! FORMAL PARAMETERS: : 
3: (116 0967 1! : 
3 995 0968 1! NONE : 
3; 16 0969 1! : 
, Siz 0970 1°! IMPLICIT INPUTS: : 
3; 118 0971 1! ‘ 
3: «6119 0972 1! EDTSS$T_CMD_BUF ‘ 
; 120 0973 1! EDTSS$A_CMD_BUF : 
s te 0974 1! EDTSSA_CMD_END ‘ 
: \$¢ 0975 1! EDTS$$G_CMD_LEN ; 
3 (1 0976 1! EDTS$$G_INP_SRC : 
> 126 0977 1! EDTS$$G_V ‘ 
s te 0978 1! ; 
; 126 0979 1°! IMPLICIT OUTPUTS: ‘ 
: 127 0980 1! : 
: 128 0981 1! EDT$$G_PA_CURCMD : 
: 19.4 0982 1! EDT$$G_PA_SP : 
3; t= 0983 1! EDTS$A_PA_CURTOK : 
s 131 0984 1! EDT$$G_PA_ERRNO : 
5 oa 0985 1! ‘ 
. Iss 0986 1 ! ROUTINE VALUE: ’ 
s 136 987 1! 
s 35 988 1! 1 = parse was successful 
3: 136 0989 1! 0 = parse failed, EDT$$G_PA_ERRNO set 
3 «137 0990 1! 
; «138 0991 1 ! SIDE EFFECTS: 
; 139 444 . ¢ 
: 140 993 1! MANY 
3 «6941 0994 1! 
: 166 0995 1 !-- 
3; 14 943 1 
3 (1446 99 BEGIN 
3: 6145 0998 
3 «146 0999 exTERNe, ROUTINE 3 
3 «147 1000 EDTSSFMT_CRLF, ! Terminate an output Line 
: 148 1001 EDTSSFMT_C 
3; «149 1006 EDTSS$F 
: 150 1 EDIS$PA_SCANTOK : NOVALUE, ' Get the next token 
s 151 1004 EDTSSPA_GETCH : NOVALUE, ! Get the next character from the input Line 
3; 152 1005 EDTSSPA_TSTMACCAL, ! Test if the current token is a macro name 
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ra 


ars 93:40:64 VAX=11 Bliss-32 V4.0-74 
: 


EDTSSPA_DRIV Parse table driver 
EDTSSMSG_TOSfR; 

EXTERNA 
EDTSST_CMD_BUF, ' Command Line buffer. 
EDTSSA_CMD_BUF, ! Pointer into command buffer. 
EDTSSA_CMD_END, ! Pointer to end of current command. 
EDTSS$G_CMD_LEN, : hengen of command. 
EDTSS$G_INP_SRC, ! input source 
EDTSSG_VFY ! verify switch 
EDT$$G-PA_CURCMD : REF NODE_BLOCK, 
EDTSSA_PA_CURTOK, ! start of the current token 
SOT OA AERRNO, ! Error number of parsing error. 


MESSAGES ((UNXCHRAFT, UNRCOM)); 

; Initialize the command node pointer and the parsing stack pointer. 
EDTS$G_PA_CURCMD = 0; 

EDTS$A-PA-CURTOK = .EDTSSA_CMD_BUF; 

EDTSSPA_GETCH (); 

EDTSSPA_SCANTOK (); 

EDTS$G_PA_ERRNO = 0; 


gee ne aE, () OR EDTSS$PA_DRIV (0)) 


BEGIN 
EDTSSA_CMD_BUF = .EDTSSA_PA_CURTOK; 
IF _(CHSRCHAR (.EDTS$A_CMD_BUF) EQL %C';") 
BEGIN 
EDTSSA_CMD_BUF = CHSPLUS (.EDTSSA_CMD_BUF, 1); 
RETURN” (1); 
END 
ELSE 


< 
g 


DISKSVMSMASTER:CEDT.SRCJPRPARCOM.BLI 


IF (CHSRCHAR (.EDTSSA_CMD_BUF) EQL %C°!") THEN RETURN (1) ELSE EDTS$$G_PA_ERRNO = EDTS_UNXCHRAFT; 


END 
ELSE 


f neither call was successful, but no error number assigned, 


' 
iy 
! give the unrecognized command diagnostic. 


le 
IF (.EDTS$G_PA_ERRNO EQL 0) THEN EDTS$$G_PA_ERRNO = EDTS$_UNRCOM; 
'¢ 
Print the command with an indication of where the error is. 
if {¢-EDTSS6_1mP_SaC NEQ INP_TERM) AND (.EDTS$G_VFY EQL 0)) 
BEGIN 
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-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 


EDTSP VAX=11 BLi 43 
-0 EDTSSP D = parse a command 12-828} DISKSVMSMA STER: cep  SRCJPRPARCOM.BLI;1 (3) 

: 210 1 63 EDTSSEMT CH (4C'_') ; 
: 211 1064 EDTSSFMT_STR CEprsst_ CMD_BUF, .EDT$$G_CMD_LEN); : 
> ote 1065 EDTSSF MT “CRLF QO; ; 
: $1 1087 aM: 
> 215 1068 DECR I EROM CHSDIFF (.EDTS$A_PA_CURTOK, EDT$S$T_CMD_BUF) TO 0 DO : 
; 1 1069 EDTSSFMT_CH (XC° ‘); ; 
3 1 1070 3 
: 218 1071 EDTSSFMT_CH (XC'*"); ; 
19 1076 EDTSSFMT-CRLF (); ; 
; y 1008 "Print the message corresponding to the error code. ‘ 
: $¢ 1076 EDTSSMSG_TOSTR (.EDTS$$G_PA_ERRNO); : 
> 226 1077 EDISSFMT CRLF (); ; 
3 225 1078 EDTS$A_CAD BUF =" .EDTSSA_CMD_END; ; 
; 226 1079 é ensue att (ZC'!", CEDTSSATCMD-ENDS; ; 
3 de? 1080 RETU RN (0); ; 
; 228 1081 1 END; ! of routine EDTSSPA_CMD : 
.TITLE EDTSPRPARCOM EDTSPRPARCOM - parse a command ; 
IDENT \V04-000\ ; 
.EXTRN EDTSSFMT_CRLF, EDTSSFMT_CH : 
XTRN EDTSSFMT_STR, EDTS$PA_SCANTOK $ 
EXTRN EDTSSPA_SETCH, EDTS$SPA_TSTMACCAL : 
-EXTRN EDTSSPA-DRIV, EDTSS$MSG_TOSTR ; 
-EXTRN EDTS$T_CMD_BUF, EDTSS$A-CMD_BUF ; 
SEXTRN EDTSSA-CMD-END, EDTS$SG_ CMD “LEN ; 
XTRN EDTS$$G_INP-SRC, EDTS$$G_VFY 3 
EXTRN EDT$$G~PA_CURCMD ; 
AIM BHR Gas" : 
“EXTRN EDT$$G-PA~SP, EDT$_UNXCHRAFT : 
“EXTRN EDTS_URRCOM : 
O1FC 00000 .ENTRY EDTSSPA_CMD Save R2,R3,R4,R5,R6,R7,RB : 0951 F 
58 0 0 06 00 9 0002 MOVAB EDTS$$T_CMD BUF : ; 
7 0 G 00 9€E 0000 MOVAB  EDTSSFAT MOREE : : 
56 G 00 9 0019 MOVAB  EDT$SFMT~CH, F ; 
5 G 9—€ 0001 V EDTS$A_PA_CURTOK, R5 ; : 
4 G 9E 3 MOVAB EDTS$$G~PA-ERRNO, R4 : F 
3 G 9E VAB EDTSSA"CMB_BUF, R ; : 
ooooo000e 09 rrr BP Re ; suré, Gh eorssece 1038 : 
é 3 6 VL. OC fs$a MD eu EDT$$A_PA_CURTOK : 10 5 : 
00000006 00 0 FB ¢ CALLS #0, EDTSSPA_GETCH : 1028 : 
omen 0 Be) i: 
000000006 90 : FB 4 CALLS i. EDTSSPA_TSTMACCAL + 1032 ; 
‘ F De ; CtRL. =($P) : 
000000006 00 F CALLS #1, EDTSSPA_DRIV : : 
of 95 £8 § : BLBC =—E.-s@aRO; + - : : 


1084 1 
1085 1 !<BLF/PAGE> 


* di 
EDTSPRPARCOM gp DTSPRPARCOR - parse a command 16- se0 0:4 VAX-11 Bliss-32 V4.0-7 Pa 6 
v04-000 DTSSPA_CMD = parse a command 14-Sep 71882 9}: $: 3 DISKSVMSMASTER:CEDT. sre PRPARCOM.BLI; * aa (3) 
65 D 62 1$ MOVL § EDTSS$A_PA CURTOK EDT$$A_CMD_BUF : 1035 : 
$0 é3 8 008 MOVL  EDT$S$A~ at MB_BUF, RO : 1933 ; 
B ‘ 1 CMPBs«(RO), P : ; 
4 12 00068 BNEQ 2$ : ; 
63 06 6D INCL EDTSSA_CMD_BUF + 1040 ; 
1 oF BRB $ + 1041 ; 
21 60 91 1 2$ CMPBSs«(RO), #33 + 1045 ; 
04 if 74 BNEQ  4$ : ; 
50 1 Bo 0 i: 3$ MOVL #1, RO : ; 
64 000000006 8F D0 SOFA 4$ MOVL § #EDTS_UNXCHRAFT, EDT$$G_PA_ERRNO : ; 
0B 11 0081 BRB 6$ + 1032 ; 
64 D 3 5$ TSTL  EDT$$G_PA_ERRNO + 1054 F 
07 12 00085 BNEQ  6$ : : 
64 000000006 +8F 00 00087 MOVL #EDTS UNRCOM EDT$$G_PA_ERRNO : : 
000000006 00 D5 OO08E 6$ TSTL EDTSSC_INP SRC + 1060 ; 
1F 13 00094 BEQL $ : ; 
000000006 09 D5 00096 TSTL EDrssc_veY : ; 
17 12 0009¢ BNE : ; 
20 DD 0009E PUSHL #32 + 1063 ; 
66 01 FB OO0A0 CALLS EDTSSFMT_CH : ; 
000000006 00 DD 000A3 PUSHL EDtséc. CMD_LEN + 1064 ; 
58 DD OO0A9 PUSHL : F 
000000006 00 02 FB OO0AB CALLS ne. EDTSSFMT_STR : ; 
67 00 FB 000B CALLS EDTSSFMT~ CRLE + 1065 F 
50 68 i 00085 7$ MOV eo tses T_CMD_BOF, RO : 1068 ; 
52 5 50 C3 000B8 SUBL3 RO, EDTSSAy a _CURTOK, R2 : ; 
52 D6 O00BC oe : ; 
05 11 000BE BRB 9$ : ; 
20 0D 000C0 8s PUSHL #32 : 1069 : 
66 01 FB 900¢e CALLS #1, EDTSSFMT_CH : : 
FB 52 F4 O00CS 9$ SOBGEQ | ; : 
7E SE BF 9A 00068 MOVZBL #94, -(SP) + 1071 ; 
6% 01 FB O00CC CALLS #1, EDTSSFMT_CH : : 
67 00 FB OOOCF CALLS #0, EDTSSFMT~CRLF : 1072 ; 
64 DD 000d2 PUSHL EDT$$G_PA_ERRNO : 1076 3 
000000006 of 01 FB 00004 CALLS #1, EDT$SASG_TOSTR : ; 
6/ 00 FB 000DB CALLS #0 EDTSSFMT CRLF : 1077 : 
30 000000006 00 »D O00DE MOVL EDT D_END, : 1078 : 
é 50 b0 000E MOVL RO ED DTSsA- CMD. BUF : : 
60 Hy 0 O00E8 MOVE = #3, + 1079 F 
0 D4 OO0EB CLRL ~— RO > 1080 : 
04 OO0ED RET > 1081 : 
; Routine Size: 238 bytes, Routine Base: _EDTSCODE + 0000 | : 


EDTSPRPARCOM EDTSPR ey = parse a command 
Ou 000 EDTSSPA_CMD - corse a command 
; ; 1084 1 END 

3 + # 

$ 4 1086 0 ELUDOM 


PSECT SUMMARY 


Name Bytes 
EDTSCODE 238 NOVEC,NOWRT, RD, 
Library Statistics 
-<aee ine - Symbols 
File Total Loaded 
-$255$DUA28: CEDT.SRCJEDT.L32;1 377 51 
“$255$DUA28: CEDT.SRCIPSECTS.L32;1 2 1 


COMMAND QUALIFIERS 


BL ISS/CHECK= (FIELD. INITIAL OPTIMIZE) /NOTRACEBACK/L IS=1 158: PRPARCOR/0B.J208)$ : PRPARCOM MSRC$:PRPARCOM.BLI/UPDATE=(ENH$:PRPA 


size: 238 code + 0 data bytes 
un Time 00:17.3 
Bey Time: 00:21.0 


Lines/CPU Min: 3770 
Lexemes/CPU-Min: 11923 
Used: 126 pages 


Conptlation Complete 


16-5e -Sep-1984 ¢ 9}: 60:4 VAX-11 Bliss-32 V4.0-74 
-Sep-1984 DISKSVMSMAS TER: CEDT.SRCJPRPARCOM.BLI; A 


! of module EDTSPRPARCOM 


EDTSSPA_CMD_NOOVERLAY REF == 


EBTS TSSPA_ CMD 
Attributes 
EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
coreeeee- Pages Processing 
Percent Mapped ime 
13 40 00:00.2 
50 7 00:00.1 
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